home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / Shared.Cst / 00007.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  760 b   |  28 lines
  1. on bomb
  2.   
  3.   global status, fileName
  4.   if status = "bomb" then exit
  5.   if the puppet of sprite 19 = TRUE then exit
  6.   eraceMenuDownButton
  7.   if fileName contains "MOVIE" or fileName = "ACTRESS" or fileName = "PLAY" then stopQT
  8.   put "bomb" into status
  9.   
  10.   puppetSprite 19, TRUE
  11.   set the type of sprite 19 = 1
  12.   set the ink of sprite 19 = 0
  13.   set the foreColor of sprite 19 = 255
  14.   set the backColor of sprite 19 = 0
  15.   if random(2) = 1 then
  16.     set the castNum of sprite 19 = the number of cast "bomb2"
  17.     set the locH of sprite 19 = 320
  18.     set the locV of sprite 19 = 210
  19.     updateStage
  20.   else
  21.     set the castNum of sprite 19 = the number of cast "bomb1"
  22.     set the locH of sprite 19 = 320
  23.     set the locV of sprite 19 = 210
  24.     updateStage
  25.   end if
  26. end
  27.  
  28.